I am the best student.
bold
x=2
y=3
x+y
## [1] 5
## [1] 4
hist(rnorm(10000),col="tomato")
x
## [1] 2
We determined that the sum 1 and 2 was 3 surprisingly.
dragonwing <- read.csv("C:/Users/sissy/Desktop/test Git/ADS2_2019-21/Practicals/Practical12_R_Markdown/dragons.csv")
dragon <- c()
for (j in 1:500) {
dragon <- c(dragon,dragonwing[j,])
}
hist(dragon,col="tomato")
library(knitr)
## Warning: package 'knitr' was built under R version 3.5.3
kable(dragonwing[1:5,])
| x |
|---|
| 1.34 |
| 0.67 |
| 0.80 |
| 0.66 |
| 1.29 |
kable(summary(dragonwing))
| wingspan | |
|---|---|
| Min. :-0.140 | |
| 1st Qu.: 1.058 | |
| Median : 3.310 | |
| Mean : 5.075 | |
| 3rd Qu.: 9.070 | |
| Max. :14.460 |
mice <- read.csv("C:/Users/sissy/Desktop/test Git/ADS2_2019-21/Practicals/Practical12_R_Markdown/mouse_report.csv")
kable(mice[1:20,c(2,4,5)])
| ID | weight | age |
|---|---|---|
| qg487 | 20 | 23 |
| sw743 | 20 | 20 |
| je649 | 21 | 21 |
| pr476 | 16 | 13 |
| nh236 | 20 | 16 |
| nt852 | 15 | 11 |
| ot185 | 18 | 29 |
| mq231 | 20 | 7 |
| pg148 | 21 | 15 |
| zt398 | 16 | 14 |
| nu634 | 20 | 38 |
| lj546 | 17 | 25 |
| jt739 | 20 | 12 |
| af041 | 20 | 15 |
| gk257 | 18 | 13 |
| cj459 | 18 | 28 |
| lu039 | 21 | 22 |
| qn532 | 21 | 5 |
| ey679 | 18 | 21 |
| mp250 | 20 | 30 |
kable(summary(mice))
| date | ID | genotype | weight | age | |
|---|---|---|---|---|---|
| July 2019:40 | af041 : 1 | LSM:10 | Min. :15.00 | Min. : 5.0 | |
| NA | cj459 : 1 | OLJ:11 | 1st Qu.:18.00 | 1st Qu.:13.0 | |
| NA | cv471 : 1 | RSM:19 | Median :20.00 | Median :16.0 | |
| NA | ey679 : 1 | NA | Mean :19.05 | Mean :19.1 | |
| NA | gd974 : 1 | NA | 3rd Qu.:20.00 | 3rd Qu.:23.5 | |
| NA | gk257 : 1 | NA | Max. :23.00 | Max. :46.0 | |
| NA | (Other):34 | NA | NA | NA |
Figure 1: ZJU International Campus bridge in the snow. By Melanie Stefan, 2018 (CC-BY-SA 4.0)